home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / complib / euler_int_one.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  308 b   |  17 lines
  1. /*
  2. ### euler integration one-stepper ###
  3. */
  4.  
  5. euler_int_one(vx1,vx,ptime,time_step,dim)
  6. double vx1[],vx[],*ptime,time_step;
  7. int dim;
  8. {
  9.     int i;
  10.     extern double *param;
  11.     extern int (*f_p)();
  12.  
  13.     (int) f_p(vx1,0,vx,param,*ptime,dim);
  14.     for(i=0;i<dim;i++) vx1[i] = vx[i] + time_step * vx1[i];
  15.     *ptime += time_step;
  16. }
  17.